TextBox1.Text = GetExternalIP()

    Private Overloads Function GetExternalIP() As String

        Try

            Dim WC As New System.Net.WebClient
            Dim ipStr As String = System.Text.Encoding.ASCII.GetString(WC.DownloadData("http://whatismyip.com/automation/n09230945.asp"))
            WC.Dispose()

            Return (ipStr)

        Catch

            Return ("Error")

        End Try

    End Function